www.gusucode.com > 良精ASP微博管理系统 V1.0 > 良精ASP微博管理系统 V1.0\code\srcrevert.asp

    <!--#include file="Include/LiangjingConn.asp"-->
<!--#include file="Include/Function.asp"-->
<!--#include file="Include/Cls_Class2.asp"-->
<%
webParmter="登录页面"
Src_ID = Request("Src_ID")
action = Request.Form("action")
	if Session("_WUserID") = "" then
		Response.Redirect("login.asp?Page=SrcRevert.asp||Src_ID$"&Src_ID)
	end if
	if Src_ID = "" or isNumerIC(Src_ID)=false then
		Response.Redirect("index.asp")
		Response.End()
	end if
	Set Rs = Server.CreateObject("Adodb.recordset")
	if action = "AddRev" then
		Sql = "Select * from Liangjing_SrcRevert Where 1>2"
		Rs.open Sql,conn,1,2
		Rs.AddNew
			Rs("Re_UserID") = Session("_WUserID")
			Rs("Re_SrcID") = Src_ID
			Rs("Re_Content") = Request("Rev_Content")
			Rs("Re_AddTime") = Now()
			Rs("Re_IP") = Request.ServerVariables("REMOTE_ADDR")
		Rs.Update
		Rs.Close
		Set Rs = Nothing
		Sql = "update Liangjing_source set src_RevertNum = src_RevertNum + 1,Src_RevertUpdate='"&now()&"'  where Src_ID="&Src_ID
		conn.execute(Sql)
		Response.Redirect("SrcShow.asp?Src_ID="&Src_ID)
		Response.End()
	end if	
	Sql = "SELECT Liangjing_Source.*, Liangjing_User.User_CoolName, Liangjing_User.User_Address FROM Liangjing_Source INNER JOIN Liangjing_User ON Liangjing_Source.Src_UserID = Liangjing_User.User_ID"
	Sql = Sql & " Where src_ID="&Src_ID&" Order By Src_AddDate Desc"
	Rs.open Sql,conn
	if Rs.eof then
		Call MsgBox2("无法找到资源！",0,"0")
		Response.End()
	end if
%>
<!--#include file="Include/header.asp"-->
</div>
<%Response.Write("<div id=""headRound"" class=""clear""><span class=""left""></span><span class=""right""></span></div>")%>
<script language="javascript">
<!--
	function frm_onsubmit(frm){
		var frm = eval(frm);
		if(frm.rev_content.value==""){
			alert("请输入要您评论的内容！");
			frm.rev_content.focus();
			return false;
		}
		if(frm.rev_content.value.length<2){
			alert("回复内容不能少于2个字");
			frm.rev_content.focus();
			return false;
		}
		if(confirm("您确定要添加此评论吗？")){
			return true;
		}
		return false;
	}
-->
</script>
<div id="mainWrapper" class="clear" style="min-height:260px;background:#C9F1FF;);">
	<div class="wording">


	</div>
	<div class="loginBox">
	<%
	Dim SrcRevert
	set SrcRevert = New Cls_SrcRevert
	Call SrcRevert.Get_SrcRevert
	Set SrcRevert =  Nothing	
    %>
	<br />
	</div>
</div>
<%Response.Write("<div id=""footRound"" class=""clear""><span class=""left""></span><span class=""right""></span></div>"&vbcr)%>
<!--#include file="Include/footer.asp"-->